COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE PLOT(X,Y,I)
C00004 ENDMK
C⊗;
	SUBROUTINE PLOT(X,Y,I)
	COMMON/FAC/JFAC,KFAC
	DATA M/-10/,N/-50/
	IF(I.GT.0)GO TO 1    
	M=X+M
	N=Y+N
	RETURN
CC2	CALL DPYOUT(1)
CC	PAUSE
2	RETURN
	
1	IF(I.EQ.999)CALL XGP(0,0,999)
CC1	IF(I.EQ.999)GO TO 2
	J=(M+X)*JFAC
	K=(N+Y)*KFAC
CC	IF(I.EQ.2)CALL AVECT(J,K)
CC	IF(I.EQ.3)CALL AIVECT(J,K)
	CALL XGP(J,K,I)
	NN=NN+1
	IF(NN.LT.10)RETURN
	NN=0
CC	CALL DPYOUT(1)
	END
 
	SUBROUTINE PLOTS(I,J,K)
CC	DIMENSION N(4000)
CC	CALL DPYSET(1,N,4000)
	END

	SUBROUTINE ROTATE(X,Y,N,CX,CY,ANGLE)
	DIMENSION X(1),Y(1)
	THETA=ANGLE*6.2831853/360.
	DO 1 I=1,N
	A=X(I)-CX
	B=Y(I)-CY
	X(I)=A*COS(THETA)-B*SIN(THETA) + CX
1	Y(I)=A*SIN(THETA)+B*COS(THETA) + CY
	RETURN
	END